0 CLOSE15:OPEN15,8,15,"U9":CLOSE15
14 PRINT"[147]"
15 POKE 53281,0:POKE53280,0:POKE56,40:CLR:TX$="A":FORA=1TO40:TX$=TX$+"A":NEXT
20 PRINT"[154]                                        "
22 PRINT"[145]              COPIER 1581                 "
24 PRINT"[145][154]                                        "
25 PRINT"[155]A MULTI FILE COPIER TO COPY FILES FROM  THE 1541 TO 1581";
26 PRINT"[150] ******** [156]S.A.BRETHOUR"
29 GOSUB1000:GOSUB2100
30 OP=51:DIM F$(OP),T$(OP),P(OP),B%(OP):GOSUB1200:GOSUB1100:BF=168:A1=1
65 POKE3,0:POKE4,PEEK(56):IFV=0THEN990
70 PRINT"[147]":GOSUB5000:PRINT"[150]READING[153]":FORA=1TOV:IFF$(A)=""THEN100
75 F$(A)=F$(A)+","+T$(A)+",":BF=BF-B%(A):IFBF<1THENGOSUB1300
79 PRINTLEFT$(F$(A),LEN(F$(A))-3)
80 OPEN15,D,15:OPEN2,D,2,F$(A)+"R"
82 INPUT#15,ER,ER$:IFERTHENPRINTTAB(20)"[145]"ER$:GOTO87
84 SYS866
87 CLOSE2:CLOSE15:P(A)=PEEK(3)+PEEK(4)*256:P1=P(A)+1
90 H=INT(P1/256):L=P1-(H*256):POKE3,L:POKE4,H:IFBF-B%(A+1)<1THENGOSUB1300
100 NEXT A:IFPEEK(4)=PEEK(56)ANDPEEK(3)=0THEN990
110 F=-99:GOSUB1300
990 PRINT"ANY MORE FILES? (Y/N) ";
991 GETA$:IFA$<>"Y"ANDA$<>"N"THEN991
992 IFA$="Y"THEN14
999 CLR:END
1000 FORI=828TO898:READX:POKEI,X:NEXTI:RETURN
1020 DATA162,2,32,201,255,198,1,160,0,56,165,3
1030 DATA229,5,165,4,229,6,176,13,177,3,32,210
1040 DATA255,230,3,208,236,230,4,208,232,230,1,76
1050 DATA204,255,162,2,32,198,255,160,0,32,207,255
1060 DATA145,3,230,3,208,2,230,4,36,144,80,241
1070 DATA165,3,133,5,165,4,133,6,76,204,255
1100 U=1:PRINT:PRINT:AY=0:Q$="Y"
1108 PRINT"[159][147]":GOSUB5000
1110 OPEN8,D,0,"$0:"+PM$
1120 GET#8,A$,A$,A$,A$,A$,A$:SYS899:PRINTLEFT$(TX$,PEEK(142))
1125 GET#8,A$,A$,A$,B$
1130 C=ASC(A$+CHR$(0))+ASC(B$+CHR$(0))*256
1135 IF PEEK(144)<>0 THEN1190
1140 PRINT C;
1145 SYS899:SS=PEEK(144):PRINTLEFT$(TX$,PEEK(142)):IFLEFT$(TX$,3)="BLO"THEN1190
1150 PRINT"[145]";TAB(30);"[153](Y/N) ";
1155 A$=LEFT$(TX$,PEEK(142))
1160 IFAY<>-99THENGETT$:IFT$<>" "ANDT$<>"Y"ANDT$<>"N"ANDT$<>CHR$(13)THEN1160
1165 IFT$=CHR$(13)THENPRINTQ$:GOTO1170
1166 PRINT"[150]";:PRINTT$;:PRINT"[158]"
1170 IFT$=CHR$(32)THEN1195
1171 IFT$=CHR$(13)THENAY=-99:T$=Q$
1175 IFT$="N"THENQ$=T$:GOTO1185
1180 IFT$="Y"THENQ$=T$:GOSUB2200:U=U+1
1183 IFU>OP-1THENCLOSE8:PRINT"ONLY";OP-1;"FILES ALLOWED AT ONCE":CLOSE8:GOTO1195
1185 GOTO1125
1190 PRINT"[145]BLOCKS FREE":CLOSE8
1195 V=U-1:FORX=1TO1500:NEXT:RETURN
1200 INPUT "[158]COPY FROM DRIVE  8[157][157][157]";D
1210 IFD<8ORD>11THEN1200
1220 INPUT "[159]COPY TO DRIVE  8[157][157][157]";D1
1230 IFD1<8ORD1>11THEN1220
1250 INPUT "[154]PATTERN MATCH:  *[157][157][157]";PM$
1260 IFPM$=""ORLEN(PM$)>16THEN1250
1270 PRINT"[155]FORMAT TARGET (Y/N)? ";
1275 GETA$:IFA$="N"ORA$=CHR$(13)THENPRINT"N":RETURN
1280 IFA$<>"Y"THEN1275
1281 PRINT"[147]":GOSUB 5000
1282 INPUT"[156]NAME (16 CHARS MAX)";A$:IFA$=""THENRETURN
1285 B$="":INPUT"ID (2 CHARS)";B$:IFB$<>""THENA$=A$+","+B$
1287 IFD=D1THENPRINT"[129]INSERT BLANK DISK":POKE198,0:WAIT198,1:POKE198,0
1288 PRINT"[158]FORMATTING...."
1290 OPEN15,D1,15,"N0:"+A$:INPUT#15,ER,ER$:IFERTHENPRINT""ER$:END:RUN
1291 PRINT"FORMAT ANOTHER? (Y/N) ";
1292 GETA$:IFA$<>"Y"ANDA$<>"N"ANDA$<>CHR$(13)THEN1292
1293 IFA$=CHR$(13)THENA$="N"
1294 PRINTA$:IFA$="Y"THENCLOSE15:A$="":GOTO1282
1295 CLOSE15:IFD=D1THENPRINT"[150]INSERT SOURCE":POKE198,0:WAIT198,1:POKE198,0
1296 RETURN
1300 IFD=D1THENPRINT"[158]PLEASE SWAP":POKE198,0:WAIT198,1:POKE198,0
1301 POKE3,0:POKE4,PEEK(56):PRINT"[154]WRITING":FORB=A1TOA:IFF$(B)=""THEN1340
1302 PRINTLEFT$(F$(B),LEN(F$(B))-3)
1305 P=P(B):H=INT(P/256):L=P-(H*256):POKE5,L:POKE6,H
1320 OPEN15,D1,15:OPEN2,D1,2,F$(B)+"W"
1322 INPUT#15,ER,ER$:IFERTHENPRINTTAB(20)"[145]"ER$:GOTO1327
1324 SYS828
1327 CLOSE2:CLOSE15
1330 P=P(B)+1:H=INT(P/256):L=P-(H*256):POKE3,L:POKE4,H
1340 NEXTB:A$="":PRINT"WRITE FILES TO ANOTHER DISK?[146] (Y/N)? ";:GOSUB2300
1341 IFA$="Y"THEN1300
1342 POKE3,0:POKE4,PEEK(56)
1343 IFF=-99THEN990
1345 IFD=D1THENPRINT"[150]PLEASE SWAP":POKE198,0:WAIT198,1:POKE198,0
1347 PRINT"[129]READING"
1350 BF=168:A1=A+1:RETURN
1999 REM STRING THING
2000 DATA 160,2,177,45,153,137,0,200,192,6
2010 DATA 208,246,162,8,32,198,255
2020 DATA 32,228,255,201,13,240,15,164,142,145
2030 DATA 140,200,132,142,196,139,240,4,165,144,240,234,76,204,255
2040 DATA 144,240,238,76,204,255
2100 FORI=899TO940:READX:POKEI,X:NEXT:POKE920,0:RETURN
2200 B%(U)=C:A$=LEFT$(TX$,PEEK(142))
2210 F$(U)=MID$(STR$(C)+A$,7,16)
2220 FORA=1TO16:IFMID$(F$(U),A,1)=CHR$(34)THENF$(U)=LEFT$(F$(U),A-1):A=17
2230 NEXT:T$(U)=MID$(STR$(C)+A$,25,1):RETURN
2300 GETA$:IFA$<>"Y"ANDA$<>"N"ANDA$<>CHR$(13)THEN2300
2310 IFA$=CHR$(13)THENA$="N"
2320 PRINTA$:RETURN
5000 PRINT"[154]                                        "
5002 PRINT"[145]               COPIER 1581               "
5004 PRINT"[145][154]                                        "
5005 PRINT"[158]"
5006 RETURN